Top 10k strings from Star Trek - The Computer Program (1982)(R&R Software)[a].tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Games / [TZX] /
Back to the directory listing
18 tempt=tempt+2
10 s(x(n),y(n))=0
10 g(gx,gy)=g(gx,gy)-100
10 b(gx,gy)=0
8 s(sx,sy)=1
8 ;"Press any key to continue...",:
6 tempt=tempt+1
6 iy=(y2-y1)/
6 ix=(x2-x1)/
6 c=s(x1,y1):
6 a$="Bearing (0-360)?":
6 ;"Not enough energy",:
4 s(x1,y1)>1
4 s(x1,y1)=0
4 katt=katt+1
4 g(x,y)=g(x,y)+100
4 g(gx,gy)=g(gx,gy)-10
4 b(gx,gy)=b(gx,gy)+en+sh:
4 b$(bn)=" ":
4 ;"You may not attack while docked",:
4 ;"Starbase no longer operational",:
4 ;"Romulan destroyed",:
4 ;"Klingon destroyed",:
4 ;"Hyper-drive out of order",:
4 (kdx-edx):
4 (edx-kdx):
4 ((sx-x(n))*(sx-x(n))+(sy-y(n))*(sy-y(n)))):
4 1 2 3 4 5 6 7 8
2 y+" "
2 warp drive
2 turned upon each one in turn.","The closer you are, the more","effect your phasers will have."
2 turn computer on
2 turn computer off
2 tempt=tempt+3
2 temp=bomb:
2 status (damage report)
2 ss=g(gx,gy)
2 sh=b(gx,gy)-en:
2 self-destruct sequence
2 s=g(x1,y1):
2 s(x(n),y(n))=5
2 s(x(n),y(n))=2
2 s(sx,sy)=0
2 s(osx,osy)=0
2 probe sector
2 print title
2 print scenario
2 print reformatted time
2 print orders
2 print command options
2 place starbase
2 place star
2 place klingon
2 place enterprise
2 place Romulan
2 p(n)=p(n)-1
2 n=n+k*(x(k)=x1)*(y(k)=y1):
2 m;") ";d$(n);" ";:
2 lock photon torps
2 iy=(kdy-edy)/
2 iy=(edy-kdy)/
2 ix=(kdx-edx)/
2 ix=(edx-kdx)/
2 initialise sector map
2 hyper-drive
2 g(x,y)=g(x,y)+400
2 g(x,y)=g(x,y)+10
2 g(x,y)<100
2 g(gx,gy)=0
2 g(bax,bay)=g(bax,bay)-10
2 en=en+pe*(ks+(e(5
2 e(n)=e(n)-he:
2 e(n)=e(n)-he
2 e(n)=e(n)-5
2 d(n)=d(n)-(tempt-t1)
2 d(d1)=d(d1)+
2 coms=coms-1
2 b(x,y)=4000
2 b(gx,gy)=b(gx,gy)-he:
2 b(gx,gy)=b(gx,gy)-3000
2 b(gx,gy)<0
2 b(bax,bay)=b(bax,bay)-
2 b(bax,bay)=0
2 b(bax,bay)
2 b$="270.00":
2 b$=" 90.00":
2 b$=" 0.00":
2 b$=" "
2 b$(n)>"9")
2 b$(bn)="0":
2 a$="Warp factor (0-8)?":
2 a$="Units (0-8)?":
2 a$="Target date (100-200)":
2 a$="Start coordinates: y=":
2 a$="Start coordinates: x=":
2 a$="Shield energy (0-"+
2 a$="Phaser energy (0-"+
2 a$="Klingon force (50-100)":
2 a$="End coordinates: y=":
2 a$="End coordinates: x=":
2 a$="Bases (0-20)":
2 TORPEDOES 8
2 Smart-bomb
2 STARDATE 013.7
2 STAR TREK }
2 SMART-BOMB
2 SHIELDS 357
2 SELF-DESTRUCT
2 SECTOR 3,7
2 Print galactic map
2 PHOTON TORPEDOES
2 Navigational aid
2 NAVIGATION
2 LONG RANGE SCAN
2 LOCK PHOTON TORPEDOES
2 KLINGONS 72
2 INSTRUCTIONS
2 HYPER-DRIVE
2 GALACTIC MAP
2 ENERGY 1270
2 Damage routine
2 CONTROL ROOM
2 CONDITION
2 COMPUTER
2 AUTHOR - Jonathan Nixon.
2 ;kdx-edx,kdy-edy
2 ;he;" units drained from shields",:
2 ;he;" unit hit on shields",:
2 ;he;" unit hit on klingon at ";x(n);",";y(n),:
2 ;he;" unit hit on Romulan",:
2 ;edx-kdx,edy-kdy:
2 ;d$(n);" REPAIRED",:
2 ;b$;" ";e(5
2 ;b$;" ";b(gx,gy),
2 ;"You have until stardate ";:
2 ;"You had from stardate 000.0",
2 ;"Well done, Romulan destroyed",:
2 ;"Warp or Ion drive (W/I)?";
2 ;"WARP DRIVE",,
2 ;"Torpedoes locked...",
2 ;"Torpedoes locked",:
2 ;"Torpedoe energy absorbed",
2 ;"Torpedo energy absorbed",
2 ;"These are the voyages of the",,,"Starship ""Enterprise""...",,,"Its five year mission to explore",,"new worlds, to seek out new life",,"and new civiliations, TO BOLDLY",,,"GO WHERE NO MAN HAS GONE BEFORE!"
2 ;"That wasn't very clever, was it!":
2 ;"Target date approaching...",:
2 ;"Stopped by star at ";x1;",";y1,:
2 ;"Start coordinates (";x1;",";y1;")",
2 ;"Starbase destroyed",:
2 ;"Smart-bomb already used...",:
2 ;"Self-destruct sequence aborted",:
2 ;"Self-destruct code?";
2 ;"STATUS",
2 ;"SECTOR ";gx;",";gy,"CONDITION ";
2 ;"Romulan using phasers",:
2 ;"Romaulan destroyed",:
2 ;"Repeat (Y/N)?";
2 ;"ROMULAN ";
2 ;"Press any key to continue...":
2 ;"Press any key to continue...",
2 ;"Phaser energy too low...",:
2 ;"PROBE",:
2 ;"No torpedoes aboard...",:
2 ;"No klingons to shoot at",:
2 ;"No klingons in this sector",:
2 ;"No damage...",,:
2 ;"Nice shooting, Klingon destroyed":
2 ;"Missed...",,
2 ;"Klingon moving to sector ";x;",";y,:
2 ;"Klingon gunner court-marshalled",:
2 ;"Klingon at ";x(n);",";y(n);" using phasers",:
2 ;"Klingon at ";x(n);",";y(n);" firing torpedo",
2 ;"KLINGON BEARING ENERGY TORPS",
2 ;"Instructions (Y/N)?";
2 ;"ION DRIVE",,:
2 ;"ION DRIVE",,
2 ;"INTRODUCTION";
2 ;"GREEN";:
2 ;"Entering new sector...",
2 ;"Empty sector...",,:
2 ;"E to end, SPACE to continue..."
2 ;"Damage to ";d$(d1),:
2 ;"DOCKED";:
2 ;"DELAY",,,
2 ;"DAMAGE";
2 ;"Command (1-8)?";
2 ;"Collision with klingon at ";x1;",";y1,:
2 ;"Collision with base at ";x1;",";y1,:
2 ;"Collision with Romulan at ";x1;",";y1,:
2 ;"Attack on starbase postponed",:
2 ;"Acceptable scenario (Y/N)?";
2 ;"200 unit hit on shields",:
2 ;"0"," 270 90
2 ;" One moment please captain, I'm just creating the universe..."
2 ;" KBS KBS KBS",
2 ;" End coordinates (";x2;",";y2;")",,,
2 ;" BASE ";
2 ;" Starbase ";bax;",";bay;" under attack",:
2 ;" CONTROL ROOM COMPUTER",,,
2 ;" Starbase ";bax;",";bay;" destroyed",:
2 ;" ZERO!",
2 8: Control room
2 8: Computer
2 7: Self-destruct4: Lock torps
2 7: Galactic map
2 6: Smart-bomb
2 6: Instructions
2 4: Photon Torps
2 3: Phasers
2 3: Navigation
2 2: Shields
2 1: Manoeuvre
2 1: Hyper-drive
2 1982. R & R SOFTWARE
2 ,,,,,,,,,,,,,,,,,,:
2 ,,,,,,,,,,,,,,,,,,,,:
2 ,,,,,,,,,,,,,,,,,,,,
2 ,,,"Our galaxy is being attacked by a fleet of Klingon warships, andas captain of the USS Enterpriseit is your mission to seek out","and destroy the invaders.",,,
2 ,,,"1: Manoeuvre","5: Scan","2: Shields","6: Instructions","3: Phasers","7: Galactic map","4: Photon torps","8: Computer",
2 ,,,"1: Hyper-drive","5: Probe","2: Status","6: Smart-bomb","3: Navigation","7: Self-destruct4: Lock torps","8: Control room",
2 ,,"To destroy a Klingon you must","reduce his energy until it is","below 1 unit. Klingons start thegame with 400 units, but half oftheir energy is used each time","they use their own phasers.",,,
2 ,,"The galaxy is divided into 64","sectors, and a short range scan of the current sector is always shown at the top of the screen.",,,
2 ,,"Next you are given information on the current situation...",,,
2 ,,"If there are any Klingons in thesector they will immediately","attack, draining energy from","your shields.",,,,"When your shields go below 0,","energy is taken from your main","energy banks and the Enterprise will be damaged.",,,
2 ,,"Docking with starbases will","replenish your energy banks and your stock of photon torpedoes, and repair any damage.",,,"Bases start with 4000 units of energy, and will continue to","manufacture torpedoes until all of this is gone."
2 ,"To destroy ";k1;" klingon";:
2 ,"There were ";b2;" bases available",,,
2 ,"There was one base available",,,
2 ,"There is one base available"
2 ,"There are ";b1;" bases available"
2 ,"SHIELDS ";sh,"KLINGONS ";k1,
2 +"GALACTIC MAP"+
2 +"---:---:---:---:---:---:---:---"
2 +" 1 2 3 4 5 6 7 8 "+
2 +" 1 2 3 4 5 6 7 8 "
2 +" "+
2 *w*(i$="w"))
2 *k3/k2-b2)
2 *b(gx,gy)/3
2 )=" 1 2 3 4 5 6 7 8 "
2 (y1-y(n))<
2 (y-kdy)*ix:
2 (y-edy)*ix:
2 (x1-x(n))<
2 (x-kdx)*iy:
2 (x-edx)*iy:
2 (u*(i$="i")+10
2 (tempt+w*8
2 (pe/(ks+(e(5
2 (osy-y(n)))
2 (osx-x(n)))
2 (kdy-edy)>
2 (kdy-edy):
2 (kdx-edx)>
2 (kdx-edx)=
2 (edy-kdy)>
2 (edy-kdy):
2 (edx-kdx)>
2 (edx-kdx)=
2 (b$(n)<"0"
2 ((x2-x1)/(y2-y1))/
2 ((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1)):
2 '"Your performance has been rated at ";score;"%"''
2 '"Create your own (Y/N)?";
2 '"And ";b1;" base";:
2 "You had destroyed ";k3;" klingon";:
2 "When you are given the prompt, Command (1-8)? you may begin to defend yourself...",,,
2 "Well done, Mission accomplished"
2 "Until stardate ";:
2 "To destroy ";k2;" klingon";:
2 "TORPEDOES ";pt,"COMPUTER ";
2 "Self-destruct sequence complete"
2 "Self-destruct code?";
2 "STAR TREK"
2 "Photon torpedoes","Scanners","Ion drive","Warp drive","Phaser banks"
2 "Out of time..."
2 "Out of energy..."
2 "From time to time you will also be attacked by a Romulan. Their vessels possess cloaking deviceswhich make them invisible to","anything other than the probe.","Romulans start with 500 units ofenergy."
2 "ENERGY ";en,"STARDATE ";:
2 "By stardate ";:
2 "Bearing ";b$;", distance ";d,
2 "Another mission (Y/N)?";
2 "And your command options...",,,
2 "8: Computer Control room",
2 "7: Galactic map Self-destruct",
2 "6: Instructions Smart-bomb",
2 "5: Scan Probe",
2 "4: Photon Torps Lock torps",
2 "3: Phasers Navigation",
2 "2: Shields Status",
2 "1: Manoeuvre Hyper-drive",
2 ",,,,"You may distribute your energy between the main energy banks and the shields.",,
2 ",,,,"Will destroy everything in the","sector including the Enterprise,and end the game."
2 ",,,,"Turns the shipboard computer on,giving you a new set of command options...",,,,
2 ",,,,"This will destroy everything in a sector, even bases and stars."
2 ",,,,"Switches off the computer and","returns you to the main set of","command options."
2 ",,,,"Replaces the short range scan","with a map of the entire galaxy.Only sectors you have visited orscanned will be shown.",,,
2 ",,,,"Reminds you of the galactic","situation and gives you the","option of reviewing these notes.",,
2 ",,,,"Relocates the Enterprise at a","randomly determined position in the galaxy.",,,,
2 ",,,,"Phaser energy is divided betweenthe klingons and the phasers are
2 ",,,,"Informs you of any damage to theEnterprise and tells you how","long it will take to repair."
2 ",,,,"Gives the bearing and distance","between any two points.",,,
2 ",,,,"Gives details of the surrounding8 sectors. Each is shown as 3","digits which are the numbers of","Klingons, bases and stars.",,,
2 ",,,,"Gives details of any Klingons,","bases and Romulans with you in","the sector."
2 ",,,,"1 unit of Ion drive will take you 1 position across a sector, and Warp factor 1 will take you an entire sector across the","galaxy.",,,,"Directions are always given as","a bearing from 0 to 360 degrees.",,,
2 ",,,"The photon torpedoes require a","bearing from 0 to 360 degrees.","They destroy anything except","stars.",,,,
2 ",,,"After this order has been given,photon torpedoes will not need","bearings, but will home in on","their targets.",,,,
2 " stardays to repair",:
2 " remained."
2 " --------------------------",:
2 " ";b$;" ";e(n),
2 Starbase"," * Star"
2 Klingon","
2 Enterprise","
2 7 *
2 4
2 1
2 * 8
2 the computer program":
2 the computer program
2 * 2
2 4
2 7
2 5
2 3
2 1
1 Created with Ramsoft MakeTZX